home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / RS232.ARC / %c3%c2%c2%d3%a4%cbERNAL.EQU < prev    next >
Text File  |  2019-04-13  |  3KB  |  131 lines
  1. ;úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
  2. ;              ├┬┬╙ñ╦ERNAL.EQU
  3. ;
  4. ;           ┬Y  ─ENNY ╞IGUERRES  12/24/87  07:30:00 ╨M
  5. ;               707 ╬ ╙AN╩OAQUIN ╙T  ┴PT#5
  6. ;               ╙TOCKTON ├A 95202  
  7. ;
  8. ;  DEFINE ALL STANDARD ├128 SYSTEM VARIABLES AND ╨OWER ├ 
  9. ;  SYSTEM VARIABLES FOR  LINKAGE TO ╨OWER ├ PROGRAMS AND ACESS TO 
  10. ;  ├128 KERNAL
  11. ;
  12. ;              ├= 128 KERNAL AND SYSTEM DEFINITIONS
  13. ;úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
  14. ;  MAKE THESE NAMES PUBLIC ITEMS AVAILABLE TO ALL OTHER .A FILES
  15.  
  16.    .DEF C$PARAMSIZE
  17.    .DEF C$PARAMPTR
  18.    .DEF C$LOCAL
  19.    .DEF C$PARAMS
  20.    .DEF C$JSRñFAR
  21.    .DEF C$MEM
  22.    .DEF ╙╘┴╓┼├
  23.    .DEF ┴ñ╥EG
  24.    .DEF ╪ñ╥EG
  25.    .DEF ┘ñ╥EG
  26.    .DEF ┬ANK
  27.    .DEF ╨├ñ╚IGH
  28.    .DEF ╨├ñ╠OW
  29.    .DEF ══╒ñ╥EGS
  30.    .DEF ══╒ñ├╥
  31.    .DEF C$STATUS
  32.    .DEF C$CURRENT
  33.    .DEF C$NEXT
  34.    .DEF C$INPUT
  35.    .DEF C$OUTPUT
  36.    .DEF TODA
  37.    .DEF TODB
  38.    .DEF QTSW
  39.    .DEF COLOR
  40.    .DEF LOCKS
  41.    .DEF SCTOP
  42.    .DEF SCBOT
  43.    .DEF SCLF 
  44.    .DEF SCRT
  45.    .DEF RS232SREG
  46.    .DEF RS232EN
  47.    .DEF RS232PORT
  48.    .DEF STATUS
  49.    .DEF VIC
  50.    .DEF SID
  51.    .DEF CIA1
  52.    .DEF CIA2
  53.    .DEF RS232╔BUF 
  54.    .DEF RS232╧BUF
  55.    .DEF RIDBE
  56.    .DEF RIDBS
  57.    .DEF RODBE
  58.    .DEF RODBS
  59.    .DEF TIMER
  60. ;úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
  61. ;  NOW FIX THE ADDRESSES OF THESE LABELS
  62. ;  FOR ASSEMLER RESOLUTION
  63. ;
  64. C$PARAMSIZE = $00FB
  65. C$PARAMPTR = $0086
  66. C$LOCAL    = $00A0
  67. C$PARAMS   = $0400
  68. C$JSRñFAR  = $0124
  69. C$MEM      = $0135
  70. ╙╘┴╓┼├     = $02B9 
  71. ┴ñ╥EG      = $0006
  72. ╪ñ╥EG      = $0007
  73. ┘ñ╥EG      = $0008
  74. ┬ANK       = $0002 
  75. ╙ñ╥EG      = $0005
  76. ╨├ñ╚IGH    = $0003
  77. ╨├ñ╠OW     = $0004
  78. ══╒ñ╥EGS   = $D500
  79. ══╒ñ├╥     = $FF00
  80. C$STATUS   = $0500
  81. C$CURRENT  = $0510
  82. C$NEXT     = $0511
  83. C$INPUT    = $051A
  84. C$OUTPUT   = $051B
  85.  
  86. QTSW       = $00F4 
  87. COLOR      = $00F1 
  88. LOCKS      = $00F7
  89. SCTOP      = $00E5 
  90. SCBOT      = $00E4 
  91. SCLF       = $00E6 
  92. SCRT       = $00E7 
  93. STATUS     = $0090 
  94. RS232EN    = $0A0F
  95. RS232SREG  = $0A14
  96. RS232PORT  = $DD01 
  97. TODA       = $DC08 
  98. TODB       = $DD08
  99. CIA1       = $DC00 
  100. CIA2       = $DD00
  101. SID        = $D400
  102. VIC        = $D000
  103. RS232╔BUF  = $0C00 
  104. RS232╧BUF  = $0D00
  105. RIDBE      = $0A18
  106. RIDBS      = $0A19
  107. RODBE      = $0A1A
  108. RODBS      = $0A1B
  109. TIMER      = $0A1D 
  110. ;úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
  111. ;           ╬OW TO DECLARE THE ╨OWER ├  SYSTEM KERNAL ACCESS LABLES
  112. ;           FOR ├ FUNCTION ACCESS
  113. ;
  114. ;   ╬╧╘┼:  THESE ARE ALL SUBROUTINES STORED IN KERNAL.OBJ THAT USE 
  115. ;          JSRñFAR  TO REACH THE BANK15 CONFIGUREATION AND CALL THE KERNAL 
  116. ;úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
  117.  
  118.    .REF C$KERNIN
  119.    .REF C$KERNOUT
  120.    .REF C$READST
  121.    .REF C$SETLFS
  122.    .REF C$SETNAM
  123.    .REF C$OPEN
  124.    .REF C$CLOSE
  125.    .REF C$CHKIN
  126.    .REF C$CHKOUT
  127.    .REF C$CLRCHN
  128.    .REF C$CHROUT
  129.    .REF C$GETIN
  130.    .REF C$SETBNK
  131.